#!/usr/bin/env perl

use 5.012;
use warnings;

my @rocks = qw/ bedrock slate rubble granite /;
while ( my($index, $value) = each @rocks) {
  say "$index: $value";
}
